home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / Build / build.bat next >
Encoding:
DOS Batch File  |  1999-06-23  |  2.2 KB  |  88 lines
  1. @echo off
  2. :start
  3.   set build_justone=1
  4.   if %1.==gpprof. goto gpprof
  5.   if %1.==gppunreg. goto gppunreg
  6.   set build_justone=0
  7.  
  8. :gpprof
  9.   echo Building GpProf
  10.   echo.
  11.     if exist gpprof.exe del gpprof.exe >nul
  12.     if exist gpprof.cfg del gpprof.cfg >nul
  13.   :gpprof_hpj2inc
  14.     copy help\95nt\gpprof.hlp . >nul
  15.     copy help\95nt\gpprof.cnt . >nul
  16.     hpj2inc help\95nt\gpprof.hpj help.inc >build.log
  17.     if not errorlevel 1 goto gpprof_brcc_baggage
  18.     goto error
  19.   :gpprof_brcc_baggage
  20.     brcc32 -r baggage.rc >build.log
  21.     if not errorlevel 1 goto gpprof_makeproj
  22.     goto error
  23.   :gpprof_makeproj
  24.     makeprjres gpprof.dof gpprofile.ico gpprof.rc >build.log
  25.     if not errorlevel 1 goto gpprof_brcc
  26.     type build.log | more
  27.     goto error
  28.   :gpprof_brcc
  29.     brcc32 gpprof.rc >build.log
  30.     if not errorlevel 1 goto gpprof_dcc
  31.     type build.log | more
  32.     goto error
  33.   :gpprof_dcc
  34.     dcc32 -b -h- -w- -$r-,q-,c-,o+ %1 %2 %3 %4 %5 %6 %7 gpprof.dpr >build.log
  35.     if not errorlevel 1 goto gpprof_dccok
  36.     head build.log 1
  37.     tail build.log 10
  38.     goto error_nolog
  39.   :gpprof_dccok
  40.     tail build.log 1
  41.     incver gpprof.dof
  42.     echo.
  43.   :gpprof_ok
  44.     aspack gpprof.exe /r+ /b+ /d+ /e+
  45.     if not exist g:\programs\gpprofile\gpprof.exe md g:\programs\gpprofile >nul
  46.     copy gpprof.exe g:\programs\gpprofile >nul
  47.     copy gpprof.hlp g:\programs\gpprofile >nul
  48.     copy gpprof.cnt g:\programs\gpprofile >nul
  49.     copy gpprof.pas x:\mstpl\gp >nul
  50.     copy gpprofh.pas x:\mstpl\gp >nul
  51.     if %build_justone=1 goto loop
  52.  
  53. :gppunreg
  54.   echo Building gppUnreg
  55.   echo.
  56.     if exist gppunreg.exe del gppunreg.exe >nul
  57.     if exist gppunreg.cfg del gppunreg.cfg >nul
  58.   :gppunreg_dcc
  59.     dcc32 -b -h- -w- -$r-,q-,c-,o+ %1 %2 %3 %4 %5 %6 %7 gppunreg.dpr >build.log
  60.     if not errorlevel 1 goto gppunreg_dccok
  61.     head build.log 1
  62.     tail build.log 10
  63.     goto error_nolog
  64.   :gppunreg_dccok
  65.     tail build.log 1
  66.     echo.
  67.   :gppunreg_ok
  68.     if %build_justone=1 goto loop
  69.  
  70. :loop
  71.   shift
  72.   if %1.=. goto OK
  73.   goto start
  74.  
  75. :error
  76.   type build.log | more
  77. :error_nolog
  78.   echo.
  79.   echo Error!
  80.   goto exit
  81.  
  82. :OK
  83.   if exist build.log erase build.log >nul
  84.   set build_justone=
  85.   echo Program(s) built successfully!
  86.  
  87. :exit
  88.